home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Utilities / Disk / CMInstall / CLIMasterII / modules / dms.g < prev    next >
Encoding:
Gui4CLI script  |  1998-06-24  |  1.8 KB  |  93 lines
  1. G4C
  2.  
  3. winbig 216 91 200 54  "DMS Options"
  4. varpath "climaster/*/routine.g"
  5.  
  6. xonopen
  7. lvuse dms.g 2
  8. lvclear
  9. gosub routine.g drives
  10. lvuse climaster $cm_srce
  11. if $cm_drive = ""
  12.     cm_drive = DF0:
  13. endif
  14. update dms.g 3 $cm_drive
  15. if $cm_mode == "dms-write"
  16.     update dms.g 4 "Choose Floppy"
  17.     setgad dms.g 1 off
  18.     setgad dms.g 5 on
  19. else
  20.     update dms.g 4 "Enter Archive Name"
  21.     setgad dms.g 1 on
  22.     setgad dms.g 5 off
  23. endif
  24.  
  25. xonclose
  26. cm_nwname = ""
  27. update dms.g 1 $cm_nwname
  28. lvdir none
  29.  
  30. box 0 0 200 13 out button
  31. box 125 38 75 16  out button
  32.  
  33. xtextin 0 13 200 13  "" cm_nwname "" 30
  34. gadid 1
  35. if $cm_nwname = ""
  36.     ezreq "You MUST supply a filename." "Sorry" ""
  37.     stop
  38. endif
  39. joinfile $cm_srcedir $cm_nwname cm_arcfile
  40. setgad dms.g 5 on
  41.  
  42. xlistview 0 26 124 28  "" cm_drive "" 0 txt
  43. gadid 2
  44. gadfont topaz.font 8 000
  45. lvuse climaster $cm_srce
  46. update dms.g 3 $cm_drive
  47.  
  48. text 130 40 65 12  "" 4 box
  49. gadid 3
  50. gadtxt center
  51.  
  52. text 5 0 190 13 "" 20 nobox
  53. gadid 4
  54.  
  55. xbutton 125 26 75 12 Start
  56. gadid 5
  57. gosub dms.g arcext
  58. if $cm_mode == "dms-read"
  59.     ezreq "Insert a disk in $cm_drive" Okay ""
  60.     cli 'c:dms read $cm_arcfile from $cm_drive'
  61.     lvdir refresh
  62. elseif $cm_mode == "dms-write"
  63. and $cm_ext == ".dms"
  64.     ezreq "Insert a disk in $cm_drive" Okay ""
  65.     cli 'c:dms write $cm_select to $cm_drive'
  66.     lvdir none
  67. else
  68.     ezreq "Not a .DMS File." Okay ""
  69.     lvdir none
  70. endif
  71. guiclose dms.g
  72.  
  73. xroutine vandt
  74. gosub dms.g arcext
  75. if $cm_mode == "dms-view"
  76. and $cm_ext == ".dms"
  77.     cli 'c:dms view $cm_select'
  78.     lvdir none
  79. elseif $cm_mode == "dms-test"
  80. and $cm_ext == ".dms"
  81.     cli 'c:dms test $cm_select'
  82.     lvdir none
  83. else
  84.     ezreq "Not a .DMS File." Okay ""
  85.     lvdir none
  86. endif
  87.  
  88. xroutine arcext
  89. extract cm_select unquote cm_fname
  90. extract cm_fname ext cm_ext
  91.  
  92. ; -------------------------------------
  93.